%
O08703(BALLBAR*RATCHET*TRANSPORT*R*VERSION)
(N-9967-2500-01) 
(COPYRIGHT*2024*RENISHAW*PLC.*ALL*RIGHTS*RESERVED) 

(WARNING!)
(Renishaw cannot guarantee that the part programs supplied are)
(correct.  Anyone using the part programs supplied by Renishaw)
(must ensure that the programs are suitable for the machine/controller)
(on which they are used.  Part programs should only be run by personnel)
(who are fully familiar with the machine, the controller and the)
(operation of all guards, interlocks and emergency stop switches.)
(It is recommended that programs are initially tested at low speed using)
(the feedrate override control.)

IF[#102LT360]GOTO10
#102=#102-360
N10
G65P8704A1.
#2=#4002 
#1=ASIN[#5043/[#18+#9]]
G65P8704R[#18+#9]T#101H#1
G65P8704A1.
G01X#103Y#104
IF[#11EQ#102]GOTO40
IF[#101EQ0]GOTO20
G17
G65P8704R[#18+#9]T0.H#1
G03X#103Y#104I[#5041*[-1.]]J[#5042*[-1]] 
G65P8704A1.
G04P0.1
N20
#100=#18+#9
#101=0.
#102=#1
G18
IF[#20NE0.]GOTO30
G65P8704R#18T0.H#11
G03X#103Z#105R#18
G65P8704A1.
G04P0.1
GOTO50 
N30
G65P8704R#18T0.H#11
#1=ASIN[#105/[#18+#9]] 
G65P8704R[#18+#9]T0.H#1
G03X#103Z#105I[#5041*[-1.]]K[#5043*[-1]] 
G65P8704A1.
G04P0.1
#100=#18+#9
#101=0.
#102=#1
N40
G17
G65P8704R#18T#20H#11 
#3=SQRT[[[#103]*[#103]]+[[#104]*[#104]]] 
G03X#103Y#104R#3 
G65P8704A1.
G04P0.1
N50
G#2
#100=#18 
#101=#20 
#102=#11 
M99

%